home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_17_1987_Transactor_Publishing.d64 / colour bars (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  45 lines
  1. 10 rem basic loader for color bars
  2. 15 rem terry montgomery, walls, ms
  3. 20 for i=1 to 243:reada:c=c+a
  4. 30 poke 49151+i,a
  5. 40 next:ck=29666
  6. 50 if ck<>c then print"data error"
  7. 55 sys 49152
  8. 60 end
  9. 70 rem sys49152 to activate
  10. 100 data 120,169,127,141,13,220,169
  11. 110 data 1,141,26,208,173,17,208
  12. 120 data 41,127,141,17,208,169,36
  13. 130 data 141,20,3,169,192,141,21
  14. 140 data 3,169,0,141,18,208,88
  15. 150 data 96,173,25,208,41,1,208
  16. 160 data 3,76,101,192,169,1,141
  17. 170 data 25,208,172,176,192,185,179
  18. 180 data 192,141,32,208,238,176,192
  19. 190 data 174,176,192,236,177,192,208
  20. 200 data 8,32,104,192,162,0,142
  21. 210 data 176,192,173,17,208,41,127
  22. 220 data 141,17,208,185,191,192,141
  23. 230 data 18,208,173,176,192,208,3
  24. 240 data 76,49,234,76,188,254,238
  25. 250 data 178,192,173,178,192,201,15
  26. 260 data 176,14,160,0,185,204,192
  27. 270 data 153,191,192,200,192,12,208
  28. 280 data 245,96,173,178,192,201,30
  29. 290 data 176,14,160,0,185,217,192
  30. 300 data 153,191,192,200,192,12,208
  31. 310 data 245,96,173,178,192,201,45
  32. 320 data 176,14,160,0,185,230,192
  33. 330 data 153,191,192,200,192,12,208
  34. 340 data 245,96,169,0,141,178,192
  35. 350 data 96,2,12,33,6,09,05
  36. 360 data 01,12,08,04,02,07,00
  37. 370 data 14,6,50,55,60,65,70
  38. 380 data 75,80,85,90,95,100,105
  39. 390 data 40,50,70,90,110,130,150
  40. 400 data 170,190,210,230,250,14,40
  41. 410 data 50,60,70,80,90,100,110
  42. 420 data 120,130,140,150,160,170,50
  43. 430 data 55,60,65,70,75,80,85
  44. 440 data 90,95,100,105,110
  45.